(ns io.github.jmjoy.caipiao.comp-test
  (:require [io.github.jmjoy.caipiao.comp :as sut]
            [clojure.test :as t :refer [deftest is]]))

(deftest test-qixingcai
  (let [c (atom 0)]
    (sut/qixingcai (fn [_] (swap! c inc)))
    (is (= 10000000 @c))))

(deftest test-shuangseqiu
  (let [c (atom 0)]
    (sut/shuangseqiu (fn [_] (swap! c inc)))
    (is (= 17721088 @c))))
